home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Photo: Children - Vintage Portraits
/
Children: Vintage Portraits.iso
/
mac
/
Portfolio Browser for Windows
/
Filters
/
PSI_ETC
/
TYPE1.PS
< prev
Wrap
Text File
|
1999-09-01
|
661b
|
50 lines
%
% Remove all fonts from FontDirectory
%
{
/more false def
FontDirectory{/more true def pop undefinefont exit}forall
more not{exit}if
}loop
%
% Load the type1 font
%
@args 1 get run
%
% The only font in FontDirectory now should be this one
%
FontDirectory{exit}forall
/font exch def
%
% Load up the initial font info
%
font /FontInfo get begin
FamilyName
Weight
ItalicAngle
UnderlinePosition
UnderlineThickness
end
font /FontBBox get
font /FontType get
%
% Load up encoding and charstring locations
%
font /Encoding get
font /CharStrings get
%
% Set it as the current font
%
font setfont